home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk188 / backtalk / asend.bt < prev    next >
Text File  |  1995-03-19  |  1KB  |  50 lines
  1. /* sendfile - send a file through BT */
  2.  
  3. /* This is a "prompted" ascii upload script written by Larry Phillips */
  4. /* It was written to demonstrate the usage of the ONSTRING and the    */
  5. /* OFFSTRING commands.  It was also written because Larry feels the   */
  6. /* xprascii.library leaves a lot to be desired.                       */
  7.  
  8. options results
  9.  
  10. call openport('BT_msg')
  11.  
  12. GETFILENAME
  13.  
  14. if words(result) < 1 then exit
  15.  
  16. if open(infile,result,'r') ~= 0 then do
  17.   ONSTRING "^M"
  18.   do forever
  19.     x = readln(infile)
  20.     if EOF(infile) then do
  21.       OFFSTRING
  22.       call getout
  23.     end
  24.       SEND x
  25.       call waitforit
  26.   end
  27. end
  28.  
  29. waitforit:
  30.   packet =  getpkt('BT_msg')
  31.   do while packet = '00000000'x
  32.     call waitpkt('BT_msg')
  33.     packet = getpkt('BT_msg')
  34.   end
  35.   arg0 = getarg(packet)
  36.   call reply(packet,0)
  37.   select
  38.     when arg0 = 'OFF' then return
  39.     when arg0 = 'MATCH' then nop
  40.     otherwise nop
  41.   end
  42. return
  43.  
  44. getout:
  45.   do until arg0 = 'OFF'
  46.     call waitforit
  47.   end
  48.   MESSAGE "----- File sent -----"
  49.   exit
  50.